* Appendix
log using lee-multiplerivals-appendix.log 

* Table A1
use "japancleaned2.dta", clear
tab age gender, col

* Table B1
use jpappterr2014nomiss.dta, clear

* Approval Ratings
dfuller approval
dfuller approval, lags(1)
pperron approval

* JPN -> CHN
dfuller jcmo
dfuller jcmo, lags(1)
pperron jcmo

* CHN -> JPN
dfuller cjmo
dfuller cjmo, lags(1)
pperron cjmo

* JPN -> SK
dfuller jkmo
dfuller jkmo, lags(1)
pperron jkmo

* SK -> JPN
dfuller kjmo
dfuller kjmo, lags(1)
pperron kjmo

* Unemployment
dfuller unemployment 
dfuller unemployment, lags(1)
pperron unemployment

* Consumer Price Index
dfuller cpi 
dfuller cpi, lags(1)
pperron cpi


* Table B2
varsoc jcmo cjmo approval, maxlag(15)
var  cjmo jcmo approval, lags(1/2)
vargranger

* Figure B1
irf create irf1, set(jpnchn) replace
irf graph irf, set(jpnchn) plot1(lcolor(gs2)) yline(0, lcolor(gs6)) legend(off)

* Table B3
varsoc jkmo kjmo approval, maxlag(15)
var  kjmo jkmo approval, lags(1)
vargranger

* Figure B2
irf create irf2, set(jpnkor) replace
irf graph irf, set(jpnkor) plot1(lcolor(gs2)) yline(0, lcolor(gs6)) legend(off)

log close
translate lee-multiplerivals-appendix.log lee-multiplerivals-appendix.pdf 
